Cream of the Crop 20/Cream of the Crop 20 (Terry Blount) (1996).iso/program/prtrep51.zip/REPSRC.ZIP/REPDEM01.DFM/REPDEM01.txt

Text File | 1996-06-24 | 8KB | 254 lines

object dem01form: Tdem01form
  Left = 57
  Top = 205
  Width = 604
  Height = 379
  ActiveControl = Panel1
  Caption = 'dem01form'
  Font.Color = clBlack
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 120
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 596
    Height = 97
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 25
      Top = 16
      Width = 434
      Height = 19
      Caption = 'This is a demonstration of the TPrintGridReport Component.'
      Color = clBtnFace
      Font.Color = clMaroon
      Font.Height = -17
      Font.Name = 'Arial'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label2: TLabel
      Left = 25
      Top = 41
      Width = 421
      Height = 19
      Caption = 'The 5 lines of coding you need  to be able to preview and '
      Color = clBtnFace
      Font.Color = clMaroon
      Font.Height = -17
      Font.Name = 'Arial'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label3: TLabel
      Left = 25
      Top = 64
      Width = 350
      Height = 19
      Caption = 'print this table can be found in REPDEM01.PAS'
      Color = clBtnFace
      Font.Color = clMaroon
      Font.Height = -17
      Font.Name = 'Arial'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object PreView: TBitBtn
      Left = 496
      Top = 9
      Width = 89
      Height = 27
      Caption = 'Pre&View'
      TabOrder = 0
      OnClick = PreViewClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
    object Exit: TBitBtn
      Left = 496
      Top = 64
      Width = 89
      Height = 28
      Caption = '&Exit'
      ModalResult = 2
      TabOrder = 1
      OnClick = ExitClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F3333333F7F333301111111B10333337F333333737F33330111111111
        0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
        0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
        0333337F377777337F333301111111110333337F333333337F33330111111111
        0333337FFFFFFFFF7F33330000000000033333777777777773330000}
      NumGlyphs = 2
    end
    object Print: TBitBtn
      Left = 496
      Top = 37
      Width = 89
      Height = 27
      Caption = '&Print'
      TabOrder = 2
      OnClick = PrintClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 97
    Width = 596
    Height = 255
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel2'
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 6
      Top = 6
      Width = 584
      Height = 243
      Align = alClient
      BorderStyle = bsNone
      DataSource = DataSource1
      Font.Color = clTeal
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsItalic]
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      TabOrder = 0
      TitleFont.Color = clBlue
      TitleFont.Height = -13
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 407
    Top = 61
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'customer.db'
    Left = 376
    Top = 57
    object Table1CustNo: TFloatField
      DisplayWidth = 4
      FieldName = 'CustNo'
    end
    object Table1Company: TStringField
      DisplayWidth = 11
      FieldName = 'Company'
      Size = 30
    end
    object Table1City: TStringField
      DisplayWidth = 7
      FieldName = 'City'
      Size = 15
    end
    object Table1Country: TStringField
      DisplayWidth = 7
      FieldName = 'Country'
    end
    object Table1Phone: TStringField
      DisplayWidth = 13
      FieldName = 'Phone'
      Size = 15
    end
  end
  object PrintGridReport1: TPrintGridReport
    ViewButtonVisible = False
    OutputTo = poViewer
    Orientation = Default
    ViewBkColor = 11234567
    Units = poInches
    ViewHeading = 'Reportit Viewer'
    FooterFont.Color = clWindowText
    FooterFont.Height = 12
    FooterFont.Name = 'Arial'
    FooterFont.Style = []
    HeaderFont.Color = clRed
    HeaderFont.Height = -20
    HeaderFont.Name = 'Times New Roman'
    HeaderFont.Style = [fsBold]
    ZoomPercentage = 100.000000000000000000
    HeaderTop = 0.500000000000000000
    HeaderStringCenter = 'Page Header'
    HeaderEnabled = True
    HeaderOutlined = True
    HeaderFilled = False
    FooterTop = 24.630000000000000000
    FooterString = 'Page Footer'
    FooterEnabled = True
    FooterOutlined = True
    FooterFilled = True
    DisableControls = True
    BorderLeft = 0.250000000000000000
    BorderRight = 0.250000000000000000
    DateTimeStampEnabled = True
    PageNumberEnabled = True
    GridHeadingRow = 1.500000000000000000
    GridHeadingCol = 0.250000000000000000
    GridHeadingEnabled = True
    GridHeadingOutlined = True
    GridHeadingFilled = False
    GridLines = True
    LineSpacing = 1.500000000000000000
    Grid = DBGrid1
    GridMinWidth = True
    GridCentered = True
    GridPrintTotal = True
    PrintSubTotals = False
    FrameStyleLeft = frNone
    FrameStyleTop = frDoubleThickThin
    FrameStyleRight = frNone
    FrameStyleBottom = frSingleThin
    ReportStyle = rsOwn
    Left = 440
    Top = 56
  end
end